home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / bpl70n11.zip / TESTPRGS.ZIP / INFBUG.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-07  |  849b  |  33 lines
  1. PROGRAM INFBug;  { Copyright (c) 1992 Norbert Juffa }
  2.  
  3. { INFBug checks correct printing of NaNs. BP 7 originally prints these as INF }
  4.  
  5. {$N+,E+}
  6.  
  7. VAR X:  EXTENDED;
  8.     XA: ARRAY [1..5] OF WORD ABSOLUTE X;
  9.  
  10. BEGIN
  11.    WriteLn ('Testing correct printing of NANs');
  12.    XA [5] := $7FFF;
  13.    XA [4] := $8000;
  14.    XA [3] := $0000;
  15.    XA [2] := $0000;
  16.    XA [1] := $0001;
  17.    WriteLn ('First  NAN (7FFF 8000 0000 0000 0001) prints as: ', X);
  18.    XA [5] := $FFFF;
  19.    XA [4] := $8000;
  20.    XA [3] := $0000;
  21.    XA [2] := $8000;
  22.    XA [1] := $0000;
  23.    WriteLn ('Second NAN (FFFF 8000 0000 8000 0000) prints as: ', X);
  24.    XA [5] := $7FFF;
  25.    XA [4] := $8000;
  26.    XA [3] := $4000;
  27.    XA [2] := $0000;
  28.    XA [1] := $0000;
  29.    WriteLn ('Third  NAN (7FFF 8000 4000 0000 0000) prints as: ', X);
  30. END. { InfBg }
  31. begin { INFBug }
  32. end. { INFBug }
  33.